Imports System.Xml
Imports System.Data.SqlClient
Public Class dProvincia
    Public Function Existe(ByVal CodigoProv As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@CodigoProv", CodigoProv))
        Return (dConexion.Consultar("STORE_TblProvinciaBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Nombre As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@Nombre", Nombre))
        Return dConexion.ABM("STORE_TblProvinciaINSERTAR", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoProv As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@CodigoProv", CodigoProv))
        Return dConexion.ABM("STORE_TblProvinciaELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoProv As String, ByVal Nombre As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@CodigoProv", CodigoProv))
        Parametros.Add(New SqlParameter("@Nombre", Nombre))
        Return dConexion.ABM("STORE_TblProvinciaMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoProv As String, ByVal Nombre As String) As DATASET
        Dim Parametros As ArrayList = New ArrayList
        If (CodigoProv <> "") Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        'If (Nombre <> "") Then
        '    Parametros.Add(New SqlParameter("@pENombre", Nombre))
        'End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombreLike", Nombre))
        End If
        Return dConexion.Consultar("STORE_TblProvinciaBUSCARFILTRADO", Parametros)
    End Function
    Public Function Listar(ByVal Nombre As String, ByVal CodigoProv As String, ByVal NombreLike As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If (CodigoProv <> "") Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombre", Nombre))
        End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombreLike", NombreLike))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblProvinciaBuscarFiltrado", Parametros)
    End Function
    Public Function Existe(ByVal Nombre As String, ByVal CodigoProv As Integer, ByVal NombreLike As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If (CodigoProv <> "") Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombre", Nombre))
        End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombreLike", NombreLike))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblProvinciaBuscarFiltrado", Parametros)
    End Function

End Class
